home *** CD-ROM | disk | FTP | other *** search
/ Haight-Ashbury in the Sixties / Haight-Ashbury in the Sixties (1996)(Rockument)(Disc 1 of 2)[Mac-PC].iso / mac / MAIN / TUNEIN / TURNON / TURNON.DIR / 00006_Script_6 < prev    next >
Text File  |  1995-05-28  |  2KB  |  55 lines
  1. on startmovie
  2.   cursor [552,553]
  3.   global AutoPlayMode
  4.   global gPlaylistMasterList
  5.   global gMovieCount -- tracks the number of the current movie during playlist playback
  6.   global gMainMovie -- store name and path to main movie for returning from last movie in sequence
  7.   
  8.   set AutoPlayMode = "ON"
  9.   
  10.   If AutoPlayMode = "ON" then
  11.     set the puppet of sprite 40 = true
  12.     set the castnum of sprite 40 = 542
  13.     updatestage
  14.   else
  15.     set the puppet of sprite 40 = false
  16.     set the castnum of sprite 40 = 539
  17.     updatestage
  18.   end if
  19.   
  20.   set the visibility of sprite 40 = false
  21.   set the visibility of sprite 41 = false
  22.   set the visibility of sprite 42 = false
  23.   set the visibility of sprite 43 = false
  24.   set the visibility of sprite 44 = false
  25.   set the visibility of sprite 45 = false
  26.   set the visibility of sprite 46 = false
  27.   set the visibility of sprite 47 = false
  28.   
  29. end startmovie
  30.  
  31. -----
  32.  
  33. -- J. Collins - boy you guys sure mucked this up! I had to fix it to be compatible with Tune In. In the
  34. -- process I also was able to eliminate 80 percent of the old code! This little bitty handler is all you really needed.
  35.  
  36. on playCompleteShow 
  37.   global  gPlaylistMasterList, x, y, autoPlayMode, rolledShow, gMainMovie, completeShow
  38.   global  gMovieCount
  39.   put "@/" & the moviename into gMainMovie
  40.   set gPlaylistMasterList = []
  41.   set gMovieCount = 1
  42.   set rolledShow = false
  43.   set searchShow = false
  44.   set completeShow = true
  45.   -- generate a playlist from the list of TURN ON movies in the "filename master list" field 
  46.   put (the number of items in field "filename master list") into x
  47.   repeat with i = 1 to x
  48.     append gPlaylistMasterList, item i of field "filename master list"
  49.   end repeat
  50.   put getAt (gPlaylistMasterList, 1) into nextMovie
  51.   go to movie getAt (gPlaylistMasterList, 1) 
  52. end playCompleteShow
  53.  
  54.  
  55.